home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / programming / e / amsp4e / amsp_example4.e < prev    next >
Text File  |  1999-01-25  |  1KB  |  34 lines
  1. /******************************
  2. *******************************
  3. **                           **      Used:
  4. ** example 4 for AmosBobs.m  **
  5. **                           **      - mGetIBPalette
  6. ** Mouse as bobs.            **      - mLoadIB
  7. **                           **      - mEraseIB
  8. ** (C) 1999 By Krzys Cmok    **      - mIB
  9. ** Sun Jan 17 15:30:53 1999  **
  10. *******************************
  11. ******************************/
  12.  
  13. MODULE '*amosbobs',             /* open module for amos bobs */
  14.     'intuition/screens'    /* open module for screens */
  15.  
  16. PROC main()
  17. DEF databank,s:PTR TO screen          /* definition of datas (databank) and screen (s) */
  18.  
  19. databank:=mLoadIB('willy.abk')        /* load .abk file */
  20.  
  21. s:=OpenS(320,200,4,0,'Example 4');
  22. SetStdRast(s.rastport)
  23.  
  24. mGetIBPalette(databank,s)      /* palette to screen */
  25.  
  26. REPEAT
  27. mIB(s.rastport,databank,1,s.mousex,s.mousey,10); WaitTOF()         /* now mouse! */
  28. UNTIL Mouse()=1
  29.  
  30. CloseS(s)
  31. mEraseIB(databank)                    /* clean memory */
  32.  
  33. ENDPROC
  34.